home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_gui / dd_window_test.e < prev    next >
Text File  |  1995-08-15  |  322b  |  19 lines
  1. MODULE '*dd_window_instance'
  2.  
  3. PROC main()
  4.   DEF x:PTR TO mainwindow
  5.   DEF y:PTR TO mainwindow
  6.   NEW x.new()
  7.   NEW y.new()
  8.   PrintF('window opened.\n')
  9.   Delay(100)
  10.   x.disable()
  11.   PrintF('window busied.\n')
  12.   Delay(100)
  13.   x.enable()
  14.   PrintF('window unbusied.\n')
  15.   Delay(100)
  16.   END x
  17.   PrintF('window closed.\n')
  18. ENDPROC
  19.